/ MacHack 1994 / MacHack 1994.toast / MacHack™ 1987-1994 / MacHack™ '90 / Source Code ƒ.sea / Source Code ƒ / Modula2 ƒ / DataStack Filer / LocLib.Def

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 4c 6f 63 4c 69 62 | 2e 44 65 66 00 00 00 00 |..LocLib|.Def....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 14 00 60 00 |.TEXTMPS| .....`.|
|00000050| 00 00 00 00 00 01 d9 00 | 00 01 7e a2 9e 22 ce a2 |........|..~.."..|
|00000060| 9e 22 ce 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |."......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 68 34 00 00 |........|....h4..|
|00000080| 6f 77 53 74 6b 20 3a 3d | 20 4e 49 4c 3b 0d 09 09 |owStk :=| NIL;...|
|00000090| 45 4e 44 3b 0d 09 52 45 | 54 55 52 4e 20 67 53 74 |END;..RE|TURN gSt|
|000000a0| 6b 3b 0d 09 45 4e 44 20 | 4e 65 77 47 72 6f 77 53 |k;..END |NewGrowS|
|000000b0| 74 61 63 6b 3b 0d 0d 50 | 52 4f 43 45 44 55 52 45 |tack;..P|ROCEDURE|
|000000c0| 20 46 69 6e 64 4e 65 78 | 74 47 72 6f 77 43 61 72 | FindNex|tGrowCar|
|000000d0| 64 28 73 74 61 63 6b 3a | 44 61 74 61 53 74 61 63 |d(stack:|DataStac|
|000000e0| 6b 3b 20 67 53 74 6b 3a | 47 72 6f 77 53 74 61 63 |k; gStk:|GrowStac|
|000000f0| 6b 29 3a 48 65 61 64 50 | 74 72 3b 0d 56 41 52 0d |k):HeadP|tr;.VAR.|
|00000100| 09 68 65 61 64 65 72 20 | 3a 48 65 61 64 50 74 72 |.header |:HeadPtr|
|00000110| 3b 0d 09 63 53 69 7a 65 | 2c 20 67 43 61 72 64 73 |;..cSize|, gCards|
|00000120| 20 3a 43 41 52 44 49 4e | 41 4c 3b 0d 42 45 47 49 | :CARDIN|AL;.BEGI|
|00000130| 4e 0d 09 57 49 54 48 20 | 73 74 61 63 6b 5e 5e 20 |N..WITH |stack^^ |
|00000140| 44 4f 0d 09 09 63 53 69 | 7a 65 20 3a 3d 20 63 61 |DO...cSi|ze := ca|
|00000150| 72 64 53 69 7a 65 3b 0d | 09 09 67 43 61 72 64 73 |rdSize;.|..gCards|
|00000160| 20 3a 3d 20 67 72 6f 77 | 43 61 72 64 73 3b 0d 09 | := grow|Cards;..|
|00000170| 09 45 4e 44 3b 0d 0d 09 | 4d 6f 76 65 48 48 69 28 |.END;...|MoveHHi(|
|00000180| 67 53 74 6b 29 3b 0d 09 | 48 4c 6f 63 6b 28 67 53 |gStk);..|HLock(gS|
|00000190| 74 6b 29 3b 0d 09 57 49 | 54 48 20 67 53 74 6b 5e |tk);..WI|TH gStk^|
|000001a0| 5e 20 44 4f 0d 09 09 49 | 46 20 66 69 6c 6c 65 64 |^ DO...I|F filled|
|000001b0| 43 61 72 64 73 20 3c 20 | 67 43 61 72 64 73 20 54 |Cards < |gCards T|
|000001c0| 48 45 4e 0d 09 09 09 68 | 65 61 64 65 72 20 3a 3d |HEN....h|eader :=|
|000001d0| 20 56 41 4c 28 41 44 44 | 52 45 53 53 2c 20 56 41 | VAL(ADD|RESS, VA|
|000001e0| 4c 28 4c 4f 4e 47 43 41 | 52 44 2c 66 69 6c 6c 65 |L(LONGCA|RD,fille|
|000001f0| 64 43 61 72 64 73 29 20 | 2a 20 56 41 4c 28 4c 4f |dCards) |* VAL(LO|
|00000200| 4e 47 43 41 52 44 2c 63 | 53 69 7a 65 29 29 20 2b |NGCARD,c|Size)) +|
|00000210| 20 0d 09 09 09 09 09 09 | 56 41 4c 28 41 44 44 52 | .......|VAL(ADDR|
|00000220| 45 53 53 2c 20 64 61 74 | 61 50 74 72 29 3b 0d 09 |ESS, dat|aPtr);..|
|00000230| 09 09 49 4e 43 28 66 69 | 6c 6c 65 64 43 61 72 64 |..INC(fi|lledCard|
|00000240| 73 29 3b 0d 09 09 45 4c | 53 45 0d 09 09 09 49 46 |s);...EL|SE....IF|
|00000250| 20 67 72 6f 77 53 74 6b | 20 00 00 00 00 00 00 00 | growStk| .......|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 72 6f 72 28 29 20 23 20 | 30 20 54 48 45 4e 0d 09 |ror() # |0 THEN..|
|00000290| 09 64 61 74 61 53 74 61 | 63 6b 45 72 72 20 3a 3d |.dataSta|ckErr :=|
|000002a0| 20 4d 65 6d 45 72 72 6f | 72 28 29 3b 0d 09 09 53 | MemErro|r();...S|
|000002b0| 65 74 48 61 6e 64 6c 65 | 53 69 7a 65 28 69 4b 65 |etHandle|Size(iKe|
|000002c0| 79 73 2c 6b 65 79 41 72 | 72 53 69 7a 65 29 3b 0d |ys,keyAr|rSize);.|
|000002d0| 09 09 44 69 73 70 6f 73 | 50 74 72 28 64 50 74 72 |..Dispos|Ptr(dPtr|
|000002e0| 29 3b 0d 09 09 52 45 54 | 55 52 4e 20 4e 49 4c 3b |);...RET|URN NIL;|
|000002f0| 0d 09 09 45 4e 44 3b 0d | 0d 09 67 53 74 6b 20 3a |...END;.|..gStk :|
|00000300| 3d 20 4e 65 77 48 61 6e | 64 6c 65 28 53 49 5a 45 |= NewHan|dle(SIZE|
|00000310| 28 47 72 6f 77 53 74 61 | 63 6b 52 65 63 29 29 3b |(GrowSta|ckRec));|
|00000320| 0d 09 49 46 20 67 53 74 | 6b 20 3d 20 4e 49 4c 20 |..IF gSt|k = NIL |
|00000330| 54 48 45 4e 0d 09 09 64 | 61 74 61 53 74 61 63 6b |THEN...d|ataStack|
|00000340| 45 72 72 20 3a 3d 20 4d | 65 6d 45 72 72 6f 72 28 |Err := M|emError(|
|00000350| 29 3b 0d 09 09 53 65 74 | 48 61 6e 64 6c 65 53 69 |);...Set|HandleSi|
|00000360| 7a 65 28 69 4b 65 79 73 | 2c 6b 65 79 41 72 72 53 |ze(iKeys|,keyArrS|
|00000370| 69 7a 65 29 3b 0d 09 09 | 53 65 74 48 61 6e 64 6c |ize);...|SetHandl|
|00000380| 65 53 69 7a 65 28 6e 4b | 65 79 73 2c 6b 65 79 41 |eSize(nK|eys,keyA|
|00000390| 72 72 53 69 7a 65 29 3b | 0d 09 09 44 69 73 70 6f |rrSize);|...Dispo|
|000003a0| 73 50 74 72 28 64 50 74 | 72 29 3b 0d 09 09 52 45 |sPtr(dPt|r);...RE|
|000003b0| 54 55 52 4e 20 4e 49 4c | 3b 0d 09 09 45 4e 44 3b |TURN NIL|;...END;|
|000003c0| 0d 09 0d 09 57 49 54 48 | 20 67 53 74 6b 5e 5e 20 |....WITH| gStk^^ |
|000003d0| 44 4f 0d 09 09 66 69 6c | 6c 65 64 43 61 72 64 73 |DO...fil|ledCards|
|000003e0| 20 3a 3d 20 30 3b 0d 09 | 09 64 61 74 61 50 74 72 | := 0;..|.dataPtr|
|000003f0| 20 3a 3d 20 64 50 74 72 | 3b 0d 09 09 67 72 00 00 | := dPtr|;...gr..|
+--------+-------------------------+-------------------------+--------+--------+